home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / CDTools / MUIRexx / demos / MUIRexxDir / lhaextract.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-28  |  391b  |  24 lines
  1. /*
  2.  
  3. Code:       lhaextract.rexx
  4. Author:     Russell Leighton
  5. Revision:   11 Jan 1996
  6.  
  7. Comments:   This script is used to extract lha archive contents.
  8.  
  9. */
  10. options results
  11.  
  12. parse arg portname' 'name' 'ddir
  13.  
  14. address command 'lha > nil: x 'name ddir
  15.  
  16. address VALUE portname
  17.  
  18. group ID DIR REGISTER
  19. ndir = result
  20.  
  21. check ID ICN||(3-ndir)
  22. dirlist ID DIR||(3-ndir) REREAD result
  23. window ID LHA CLOSE
  24.